home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / wtjmarch.zip / DDEBMP.ZIP / DDEBMP.TXT < prev    next >
Text File  |  1991-12-18  |  907b  |  37 lines
  1. Const IDLE = 0
  2. Const HOT = 1
  3. Const COLD = 2
  4.  
  5. Sub Form_Load ()
  6.    ' Start the server application
  7.    e% = Shell("filebmp.exe", 1)
  8.    '
  9.    ' Pause with msg to give filebmp a chance to get...
  10.    ' running.
  11.    MsgBox "Continue when DDE BMP Server is running", 0, "Pausing"
  12.    '
  13.    ' Now connect the local bitmap with the server
  14.    LocalBMP.LinkMode = IDLE
  15.    LocalBMP.LinkTopic = "FileBMP|DDE"
  16.    LocalBMP.LinkItem = "BMP"
  17.    '
  18.    ' Now connect the file display with the server
  19.    Path.LinkMode = IDLE
  20.    Path.LinkTopic = "FileBMP|DDE"
  21.    Path.LinkItem = "FName"
  22.    '
  23.    ' Start the DDE links working HOT
  24.    Path.LinkMode = HOT
  25.    LocalBMP.LinkMode = HOT
  26. End Sub
  27.  
  28. Sub Form_Unload (Cancel As Integer)
  29.    LocalBMP.LinkMode = 0               ' disable link
  30. End Sub
  31.  
  32. Sub NextBMP_Click ()
  33.    ' Ask the server for the next BMP file
  34.    LocalBMP.LinkExecute "NextFilePlease"
  35. End Sub
  36.  
  37.